COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00005 ENDMK
C⊗;
BEGIN
  
  require  "define.sai"  source!file;

  boolean  more;  integer  task;
  real  num, den, acc, x, mem;

  print(" Calculator functions available: ",crlf);
  print(" 0. Clear acc ");
  print(" 1. sin ");
  print(" 2. cos ");
  print(" 3. arctan ");
  print(" 4. tan ",crlf);
  print(" 5. / ");
  print(" 6. * ");
  print(" 7. sqrt ");
  print(" 8. + ",crlf);
  print(" 9. - ");
  print("10. store ");
  print("11. recall ");
  print("12. exp ");
  print(crlf);
  more := true;  acc := 0.0;  MEM := 0.0; x := 0.0;
  while  more  do
  begin
    rprmpt(" acc ",acc);
    iprmpt(" Which ?",task);
    case  task  of
    begin
    [0]   acc := 0.0;
    [1]  acc := sind(acc);
    [2]  acc := cosd(acc);
    [3]  begin
           print(" num is acc.",crlf);  rprmpt(" den",den);
          acc := myatan(num,den);  
         end;
    [4]  acc := tand(acc);
    [5]  begin
           print(" Num is acc.",crlf);
            rprmpt(" den ",den);  acc := acc / den;
         end;
    [6]  begin
           print(" Multiplicand is acc.",crlf);
           rprmpt(" x ",x);  acc := x*acc;
         end;
    [7]  acc := sqrt(acc);
    [8]   begin
            rprmpt(" x ",x);  acc := acc + x;
          end;
    [9]   begin
           rprmpt(" x ",x);  acc := acc - x;
          end;
    [10]  MEM := ACC;
    [11]  acc := mem;
    [12]  begin
            rprmpt(" exponent",x);  acc := acc ↑ x;
          end
    end;
    print(acc,crlf);
  end;

end